home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / Surf.cpt / Surf2 / background_2627.txt < prev    next >
Text File  |  1987-11-21  |  12KB  |  482 lines
  1. -- background: 2627 from stack: in
  2. -- bmap block id: 2367
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Detailed Info
  6. ----- HyperTalk script -----
  7. on opencard
  8.   hide menubar
  9. end opencard
  10.  
  11. on newcard
  12.   domenu "New Button"
  13.   set name of button 1 to "Executive"
  14.   set rect of button 1 to 16,67,105,84
  15.   set style of button 1 to checkbox
  16.   set autohilite of button 1 to true
  17.   set script of button 1 to script of bkgnd button "Exec Script"
  18.   domenu "New Button"
  19.   set name of button 2 to "Modem"
  20.   set rect of button 2 to 16,119,88,135
  21.   set style of button 2 to checkbox
  22.   set autohilite of button 2 to true
  23.   set script of button 2 to script of bkgnd button "Modem Script"
  24.   domenu "New Button"
  25.   set name of button 3 to "Business Use"
  26.   set rect of button 3 to 16,171,131,188
  27.   set style of button 3 to checkbox
  28.   set autohilite of button 3 to true
  29.   set script of button 3 to script of bkgnd button "Business Script"
  30.   domenu "New Button"
  31.   set name of button 4 to "Use PD Software"
  32.   set rect of button 4 to 16,228,153,244
  33.   set style of button 4 to checkbox
  34.   set autohilite of button 4 to true
  35.   domenu "New Button"
  36.   set name of button 5 to "Contribute PD Software"
  37.   set rect of button 5 to 16,252,194,270
  38.   set style of button 5 to checkbox
  39.   set autohilite of button 5 to true
  40.   -- Create Six Fields
  41.   domenu "New Field"
  42.   set name of card field 1 to "Exec1"
  43.   set rect of card field "Exec1" to 53,88,120,106
  44.   set textfont of card field "Exec1" to Chicago
  45.   set textalign of card field "Exec1" to right
  46.   domenu "New Field"
  47.   set name of card field 2 to "Exec2"
  48.   set rect of card field "Exec2" to 125,88,227,106
  49.   set textfont of card field "Exec2" to New York
  50.   set showlines of card field "Exec2" to true
  51.   domenu "New Field"
  52.   set name of card field 3 to "BBS1"
  53.   set rect of card field "BBS1" to 26,140,120,158
  54.   set textfont of card field "BBS1" to Chicago
  55.   set textalign of card field "BBS1" to right
  56.   domenu "New Field"
  57.   set name of card field 4 to "BBS2"
  58.   set rect of card field "BBS2" to 125,140,227,158
  59.   set textfont of card field "BBS2" to New York
  60.   set showlines of card field "BBS2" to true
  61.   domenu "New Field"
  62.   set name of card field 5 to "Bus1"
  63.   set rect of card field "Bus1" to 53,194,120,212
  64.   set textfont of card field "Bus1" to Chicago
  65.   set textalign of card field "Bus1" to right
  66.   domenu "New Field"
  67.   set name of card field 6 to "Bus2"
  68.   set rect of card field "Bus2" to 125,194,227,212
  69.   set textfont of card field "Bus2" to New York
  70.   set showlines of card field "Bus2" to true
  71.   -- Touchups
  72.   put "Position" into card field "Exec1"
  73.   put "BBS Number" into card field "BBS1"
  74.   put "Area" into card field "Bus1"
  75.   hide card field 1
  76.   hide card field 2
  77.   hide card field 3
  78.   hide card field 4
  79.   hide card field 5
  80.   hide card field 6
  81.   set locktext of field 1 to true
  82.   set locktext of card field "Exec1" to true
  83.   set locktext of card field "BBS1" to true
  84.   set locktext of card field "Bus1" to true
  85. end newcard
  86.  
  87.  
  88.  
  89.  
  90. -- part 18 (button)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=328 top=35 right=61 bottom=362
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 22308 / 22308
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: 
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   get the number of this card
  105.   if it = the number of cards then exit mouseup
  106.   visual effect wipe right
  107.   go to next card
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 19 (button)
  113. -- low flags: 00
  114. -- high flags: 0000
  115. -- rect: left=449 top=35 right=61 bottom=483
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 14953 / 14953
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: 
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   visual effect iris open
  127.   put bkgnd field 1 into name
  128.   go to card name of stack "Surfboard"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 20 (button)
  134. -- low flags: 00
  135. -- high flags: 0000
  136. -- rect: left=449 top=67 right=93 bottom=483
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 21700 / 21700
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Home
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   visual effect iris close
  148.   go home
  149. end mouseUp
  150.  
  151.  
  152.  
  153.  
  154. -- part 27 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=288 top=35 right=61 bottom=322
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 19381 / 19381
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: 
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   get the number of this card
  169.   if it = 1 then exit mouseup
  170.   visual effect wipe left
  171.   go to previous card
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 28 (field)
  177. -- low flags: 01
  178. -- high flags: 0002
  179. -- rect: left=68 top=36 right=53 bottom=234
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 3
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: 
  188.  
  189.  
  190. -- part 53 (field)
  191. -- low flags: 00
  192. -- high flags: 0007
  193. -- rect: left=125 top=279 right=315 bottom=227
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 3
  198. -- text size: 9
  199. -- style flags: 0
  200. -- line height: 12
  201. -- part name: 
  202.  
  203.  
  204. -- part 46 (field)
  205. -- low flags: 00
  206. -- high flags: 0007
  207. -- rect: left=352 top=90 right=126 bottom=483
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 3
  212. -- text size: 9
  213. -- style flags: 0
  214. -- line height: 12
  215. -- part name: 
  216.  
  217.  
  218. -- part 50 (field)
  219. -- low flags: 00
  220. -- high flags: 4000
  221. -- rect: left=352 top=150 right=168 bottom=465
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 0
  225. -- font id: 2
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: 
  230.  
  231.  
  232. -- part 51 (field)
  233. -- low flags: 00
  234. -- high flags: 0007
  235. -- rect: left=352 top=181 right=217 bottom=483
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 0
  239. -- font id: 3
  240. -- text size: 9
  241. -- style flags: 0
  242. -- line height: 12
  243. -- part name: 
  244.  
  245.  
  246. -- part 54 (field)
  247. -- low flags: 00
  248. -- high flags: 0007
  249. -- rect: left=352 top=233 right=269 bottom=483
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 3
  254. -- text size: 9
  255. -- style flags: 0
  256. -- line height: 12
  257. -- part name: 
  258.  
  259.  
  260. -- part 52 (field)
  261. -- low flags: 00
  262. -- high flags: 0007
  263. -- rect: left=352 top=283 right=319 bottom=483
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 0
  267. -- font id: 3
  268. -- text size: 9
  269. -- style flags: 0
  270. -- line height: 12
  271. -- part name: 
  272.  
  273.  
  274. -- part 57 (button)
  275. -- low flags: 80
  276. -- high flags: 8003
  277. -- rect: left=0 top=320 right=342 bottom=39
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Hide
  286. ----- HyperTalk script -----
  287. on mouseup
  288.   set visible of bkgnd button 6 to not visible of bkgnd button 6
  289.   set visible of bkgnd button 7 to not visible of bkgnd button 7
  290.   set visible of bkgnd button 8 to not visible of bkgnd button 8
  291. end mouseup
  292.  
  293.  
  294.  
  295. -- part 58 (button)
  296. -- low flags: 80
  297. -- high flags: 8004
  298. -- rect: left=22 top=69 right=91 bottom=122
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: Exec Script
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   -- Executive button script
  310.   set visible of card field 1 to not visible of card field 1
  311.   set visible of card field 2 to not visible of card field 2
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 59 (button)
  317. -- low flags: 80
  318. -- high flags: 8004
  319. -- rect: left=20 top=123 right=145 bottom=120
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Modem Script
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   -- Modem button script
  331.   set visible of card field 3 to not visible of card field 3
  332.   set visible of card field 4 to not visible of card field 4
  333. end mouseUp
  334.  
  335.  
  336.  
  337. -- part 60 (button)
  338. -- low flags: 80
  339. -- high flags: 8004
  340. -- rect: left=19 top=177 right=199 bottom=119
  341. -- title width / last selected line: 0
  342. -- icon id / first selected line: 0 / 0
  343. -- text alignment: 1
  344. -- font id: 0
  345. -- text size: 12
  346. -- style flags: 0
  347. -- line height: 16
  348. -- part name: Business Script
  349. ----- HyperTalk script -----
  350. on mouseUp
  351.   -- Business Use button script
  352.   set visible of card field 5 to not visible of card field 5
  353.   set visible of card field 6 to not visible of card field 6
  354. end mouseUp
  355.  
  356.  
  357.  
  358. -- part 63 (button)
  359. -- low flags: 00
  360. -- high flags: A003
  361. -- rect: left=42 top=288 right=306 bottom=119
  362. -- title width / last selected line: 0
  363. -- icon id / first selected line: 0 / 0
  364. -- text alignment: 1
  365. -- font id: 0
  366. -- text size: 12
  367. -- style flags: 0
  368. -- line height: 16
  369. -- part name: SIG Groups
  370. ----- HyperTalk script -----
  371. on mouseUp
  372.   ask "Sort by which line?" with "1"
  373.   sort by line it of bkgnd field 2
  374. end mouseUp
  375.  
  376.  
  377.  
  378. -- part 64 (button)
  379. -- low flags: 00
  380. -- high flags: A003
  381. -- rect: left=260 top=90 right=109 bottom=349
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 0 / 0
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: Type of Mac
  390. ----- HyperTalk script -----
  391. on mouseUp
  392.   sort by line 1 of bkgnd field 3
  393. end mouseUp
  394.  
  395.  
  396.  
  397. -- part 65 (button)
  398. -- low flags: 00
  399. -- high flags: 2000
  400. -- rect: left=254 top=134 right=170 bottom=351
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 1
  404. -- font id: 0
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: First Meeting Attended
  409. ----- HyperTalk script -----
  410. on mouseUp
  411.   answer "Do you want to sort or insert a date?" with "Sort" or "Date"
  412.   if it = "Sort" then sort dateTime by bkgnd field 4
  413.   else
  414.     push card
  415.     go to SurfDate
  416.   end if
  417. end mouseUp
  418.  
  419.  
  420.  
  421. -- part 66 (button)
  422. -- low flags: 00
  423. -- high flags: 2000
  424. -- rect: left=284 top=284 right=319 bottom=349
  425. -- title width / last selected line: 0
  426. -- icon id / first selected line: 0 / 0
  427. -- text alignment: 1
  428. -- font id: 0
  429. -- text size: 12
  430. -- style flags: 0
  431. -- line height: 16
  432. -- part name: Sort by Interest
  433. ----- HyperTalk script -----
  434. on mouseUp
  435.   ask "Sort by which line?" with "1"
  436.   sort by line it of bkgnd field 7
  437. end mouseUp
  438.  
  439.  
  440.  
  441. -- part 68 (button)
  442. -- low flags: 00
  443. -- high flags: A003
  444. -- rect: left=16 top=37 right=52 bottom=66
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: Name
  453. ----- HyperTalk script -----
  454. on mouseUp
  455.   answer "Sort by:" with "Cancel" or "First" or "Last"
  456.   if it = "Last" then sort by word 2 of bkgnd field 1
  457.   else if it = "First" then sort by word 1 of bkgnd field 1
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 69 (button)
  463. -- low flags: 00
  464. -- high flags: 0000
  465. -- rect: left=386 top=52 right=91 bottom=428
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 23078 / 23078
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: Help
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   push card
  477.   visual iris close
  478.   answer "Which help would you like?" with "General" or "This Stack"
  479.   if it = "General" then go to Help
  480.   else go to last card of SurfHelp
  481. end mouseUp
  482.